﻿Public Class NumericAttribute
    Inherits AbstractAttribute

    Protected numericValue As Double

    Public Sub New(ByVal f As String, ByVal v As Double, ByVal t As String)

        Call MyBase.New(f, CStr(v), t)
        Me.numericValue = v

    End Sub

    Public Overloads Property attV As Double

        Set(ByVal value As Double)
            Me.insertSQL = True
            Me.value = AccessDB.returnValueString(value, Me.type)
        End Set
        Get
            Return Me.value
        End Get
    End Property

End Class
